home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d6
/
tallyho.arc
/
STR8LINE.FCP
< prev
next >
Wrap
Text File
|
1990-09-23
|
951b
|
93 lines
@DSPLY "Straight Line"
@DSPLY "Depreciation"
=
@NEW STEP
@GET "Enter the cost"
@RIN (1)
=
@NEW STEP
@GET "Enter the salvage value"
@RIN (2)
=
@NEW STEP
@GET "Life (in years)"
@RIN (3)
=
@NEW STEP
@GET "Month acquired (1-12)"
@RIN (10)
=
@NEW STEP
@IF >
12=
@NEW STEP
@GOTO (5)
=
@NEW STEP
13-
@ROUT (10)
=
@NEW STEP
@RIN (4)
=
@NEW STEP
12-
@ROUT (4)
=
@NEW STEP
@RIN (5)
=
@NEW STEP
@ROUT (1)
-
@ROUT (2)
=
@NEW STEP
@RIN (6)
@DSPLY "Total Depreciable Value"
=
@NEW STEP
@ROUT (6)
/
@ROUT (3)
=
@NEW STEP
@RIN (7)
@DSPLY "Annual Depreciation"
=
@NEW STEP
@ROUT (4)
@IF =
12=
@NEW STEP
@GOTO (22)
=
@NEW STEP
(
@ROUT (4)
/12)*
@ROUT (7)
=
@NEW STEP
@DSPLY "First Year Depreciation"
=
@NEW STEP
(
@ROUT (5)
/12)*
@ROUT (7)
=
@NEW STEP
@DSPLY "Last Year Depreciation"
=
@NEW STEP
@GET "0 = Quit. 1 = Continue."
@IF =
1=
@NEW STEP
@GOTO (2)
=
@NEW STEP
0
@STOP